home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
dkbsrc.zip
/
UNIX.C
< prev
next >
Wrap
C/C++ Source or Header
|
1991-05-04
|
619b
|
47 lines
#include <math.h>
#include "config.h"
void unix_init_dkb_trace PARAMS ((void))
{
}
int matherr (x)
struct exception *x;
{
switch(x->type)
{
case DOMAIN:
case OVERFLOW:
x->retval = 1.0e17;
break;
case SING:
case UNDERFLOW:
x->retval = 0.0;
break;
default:
break;
}
return(1);
}
void display_finished ()
{
}
void display_init ()
{
}
void display_close ()
{
}
void display_plot (x, y, Red, Green, Blue)
int x, y;
char Red, Green, Blue;
{
}